use Action;
package QuitProgramCommandAction;

@ISA = qw/Action/;
sub perform{
    my $self = shift;

    my $result = ActionResult->new("QUIT", "Quitting program");
    return $result;
}

1;
